home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Misc. / Class Administrator / SetUpStack / card_2846.txt < prev    next >
Text File  |  1990-07-06  |  5KB  |  228 lines
  1. -- card: 2846 from stack: in
  2. -- bmap block id: 8457
  3. -- flags: 0000
  4. -- background id: 2754
  5. -- name: Configuration
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=382 top=128 right=156 bottom=464
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Configure
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global A,B,C,D
  23.   put card field "B" into B
  24.   put card field "A" into A
  25.   put card field "C" into C
  26.   put card field "D" into D
  27.   repeat with x = 2 to 6
  28.     go to card x
  29.     if field 1 of this card is not empty then
  30.       domenu "Save a Copy..."
  31.       ask "What name did you give the stack?"
  32.       put it into stackname
  33.       go to stackname
  34.       repeat with m = 7 down to 1
  35.         if m = x then next repeat
  36.         go to card m
  37.         put m into msg
  38.         domenu "delete card"
  39.       end repeat
  40.       put "This may take a few minutes" into msg
  41.       doSeatingChart
  42.       hide msg
  43.       set lockscreen to true
  44.       set cursor to 4
  45.       doProfiles
  46.       doGrades
  47.       doAttendance
  48.       set lockscreen to false
  49.     end if
  50.     go to setupstack
  51.   end repeat
  52.   go to first card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. on doSeatingChart
  58.   go to card "SeatingChart"
  59.   repeat with z = 2 to 36
  60.     set the script of field z to the script of field 1
  61.   end repeat
  62. end doSeatingChart
  63.  
  64. on DoProfiles
  65.   global A,B,C,D
  66.   go to card "ProfileTemplate"
  67.   doMenu "Copy Card"
  68.   repeat with x = 1 to 36
  69.     go to last card
  70.     put word 1 of field x of card "SeatingChart" into temp1
  71.     put word 2 of field x of card "SeatingChart" into temp2
  72.     if temp1 is empty then
  73.       next repeat
  74.     end if
  75.     doMenu "Paste Card"
  76.     put A into card field "A"
  77.     put B into card field "B"
  78.     put C into card field "C"
  79.     put D into card field "D"
  80.     put temp1 && temp2 into field "Name"
  81.     put char 1 of temp1 & temp2 & "Profile" into cardname
  82.     get name of this card
  83.     set name of this card to cardname
  84.   end repeat
  85. end DoProfiles
  86.  
  87. on DoGrades
  88.   global ClassName, Period,stackname
  89.   go to card "GradesTemplate"
  90.   doMenu "Copy Card"
  91.   repeat with x = 1 to 36
  92.     go to last card
  93.     put word 1 of field x of card "SeatingChart" into temp1
  94.     put word 2 of field x of card "SeatingChart" into temp2
  95.     if temp1 is empty then
  96.       next repeat
  97.     end if
  98.     doMenu "Paste Card"
  99.     put temp1 && temp2 into field "Name"
  100.     put char 1 of temp1 & temp2 & "Grades" into cardname
  101.     set name of this card to cardname
  102.     put ClassName into card field "Class"
  103.     put Period into card field "Period"
  104.   end repeat
  105. end DoGrades
  106.  
  107. on DoAttendance
  108.   go to card "AttendanceTemplate"
  109.   doMenu "Copy Card"
  110.   repeat with x = 1 to 36
  111.     go to last card
  112.     put word 1 of field x of card "SeatingChart" into temp1
  113.     put word 2 of field x of card "SeatingChart" into temp2
  114.     if temp1 is empty then
  115.       next repeat
  116.     end if
  117.     doMenu "Paste Card"
  118.     put temp1 && temp2 into card field "Name"
  119.     put char 1 of temp1 & temp2 & "Attendance" into cardname
  120.     set name of this card to cardname
  121.     put ClassName into card field "Class"
  122.     put period into card field "Period"
  123.   end repeat
  124.   put "Your class record is now complete" into msg
  125. end DoAttendance
  126.  
  127.  
  128.  
  129.  
  130.  
  131. -- part 12 (field)
  132. -- low flags: 00
  133. -- high flags: 4000
  134. -- rect: left=58 top=255 right=305 bottom=101
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: A
  143.  
  144.  
  145. -- part 13 (field)
  146. -- low flags: 00
  147. -- high flags: 4000
  148. -- rect: left=120 top=255 right=305 bottom=166
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 3
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: B
  157.  
  158.  
  159. -- part 14 (field)
  160. -- low flags: 00
  161. -- high flags: 4000
  162. -- rect: left=184 top=255 right=305 bottom=229
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 3
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: C
  171.  
  172.  
  173. -- part 15 (field)
  174. -- low flags: 00
  175. -- high flags: 4000
  176. -- rect: left=254 top=255 right=305 bottom=301
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 3
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: D
  185.  
  186.  
  187. -- part 16 (field)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=49 top=81 right=217 bottom=339
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 3
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: 
  199.  
  200.  
  201. -- part contents for card part 12
  202. ----- text -----
  203. 97.5
  204. 92.5
  205. 90.0
  206.  
  207. -- part contents for card part 13
  208. ----- text -----
  209. 87.5
  210. 82.5
  211. 80.0
  212. 77.5
  213.  
  214. -- part contents for card part 14
  215. ----- text -----
  216. 77.5
  217. 72.5
  218. 70.0
  219.  
  220. -- part contents for card part 15
  221. ----- text -----
  222. 67.5
  223. 62.5
  224. 60.0
  225.  
  226. -- part contents for card part 16
  227. ----- text -----
  228. Before proceeding, check to make sure that you have filled out all the appropriate information for your classes.